(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     32159,        821]
NotebookOptionsPosition[     22184,        617]
NotebookOutlinePosition[     22915,        642]
CellTagsIndexPosition[     22836,        637]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"677110ae-47f6-4d47-87cf-15e5f45d4f91"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"bda3b21d-1e41-485e-b9d4-f3a5744066c3"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"2fef1a38-d061-47d3-b4c5-2de0133c3369"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"a3100909-d095-400c-bf4d-007e4f072ada"]
}], "History",
 CellChangeTimes->{{3.8242755390951943`*^9, 3.824275539421311*^9}},
 CellID->1247902091,ExpressionUUID->"4ee3c5a0-371c-4d94-9449-43c1f6c3e5fb"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"bc1c8622-ffb2-4af4-83d9-4d1e8dcbd541"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"cf300cd9-3b57-4c63-a1e3-d0f14a7dbbff"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->356920257,ExpressionUUID->"683eb6dd-4c56-41f1-8790-164f2c92f2bc"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->105363961,ExpressionUUID->"d273e017-0e3c-4676-bb03-88971433e740"],

Cell["RefpropLink/ref/maxt", "Categorization",
 CellLabel->"URI",
 CellID->130548113,ExpressionUUID->"d1860dea-23c0-42c7-922f-c9f579210520"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"2f4ec892-16ae-4352-a214-0af481c84b54"],

Cell["cricondentherm", "Keywords",
 CellChangeTimes->{{3.8242754917488503`*^9, 3.8242754959216604`*^9}, {
  3.8242755689812775`*^9, 3.8242755693971643`*^9}},
 CellID->1164421360,ExpressionUUID->"0af51754-45ea-4c52-aabe-e574aa516c52"],

Cell["spline", "Keywords",
 CellChangeTimes->{{3.8242754917488503`*^9, 3.824275504512682*^9}},
 CellID->172874080,ExpressionUUID->"810a104f-d0fd-4a75-9b0a-2be3b697fd18"],

Cell["maximum temperature", "Keywords",
 CellChangeTimes->{{3.8242754917488503`*^9, 3.8242755082566953`*^9}, {
  3.8242755750290728`*^9, 3.824275576149106*^9}},
 CellID->167060517,ExpressionUUID->"58bf863b-25c4-4b16-96e7-cb9fb3f41846"],

Cell["saturation", "Keywords",
 CellChangeTimes->{{3.8242754917488503`*^9, 3.8242755164477863`*^9}},
 CellID->982835445,ExpressionUUID->"5dfb837b-61fa-44a8-8911-81efe427677a"],

Cell["phase boundary", "Keywords",
 CellChangeTimes->{{3.8242754917488503`*^9, 3.8242755189410906`*^9}},
 CellID->406425908,ExpressionUUID->"5d3b679d-b569-4b71-b004-6602d953b48f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"26e589ce-2d02-40ab-a897-cb05807de71d"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"ba59a160-0415-476c-af0f-90adeea15d5b"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"a1bfb897-6f30-42d4-93a7-fdf92fd02be4"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"990c90fd-5ea7-406e-bcae-5d392c543b5c"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"7d686e3a-a338-4ee8-8e65-1c81050e7bd5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"1222b892-a8f6-4aad-a6bb-4dbc72925435"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8242755498933024`*^9, 3.8242755528933067`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"cafebe4f-4a0a-4158-bf6d-71e4ff9f2ba4"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8242755559520965`*^9, 3.8242755575169497`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"32bb6fac-f3fc-4c58-8943-55414e7d18ed"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8242755604530873`*^9, 3.8242755620388165`*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"209ab839-043c-4d31-8e63-7b14d0fa8a69"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"0792c26c-ec6a-4fa5-9690-2e98320079bb"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"ed026a7a-dcd8-4fb5-a2b5-8a14a55e3e88"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"525c6fb8-f920-47ba-8c9c-d825507abbc4"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"7caf59c0-fe54-43d8-9b9a-da5e7d4bec11"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"8dd408b7-3a1f-4a10-b857-c4a15db9b683"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"50220afa-5526-4c96-88b4-e62879b5f758"]
}, Closed]],

Cell[CellGroupData[{

Cell["maxt", "ObjectName",
 CellID->1224892054,ExpressionUUID->"b33adbb1-97d3-4061-8e93-1875a06c3541"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"786a9417-160d-4511-8899-3cfe897a860a"],
 Cell[BoxData[
  RowBox[{"maxt", "[", 
   StyleBox["z", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "dfc621af-ebe0-4edc-875c-89efb1184d60"],
 "\[LineSeparator]Returns the values at the maximum Temperature along the \
saturation line (cricondentherm), calculated from the last call to SATSPLN at \
the molar composition, z."
}], "Usage",
 CellChangeTimes->{
  3.824275653558276*^9},ExpressionUUID->"cddd1122-3696-4719-a729-\
1c1e461d68b7"],

Cell[TextData[{
 "Calculates the values at the maximum temperature along the saturation line; \
these are returned from the call to SATSPLN and apply only to the composition \
in the ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "d47d933e-c130-48b2-8bed-a992c95fd5fe"],
 " array sent to  ",
 Cell[BoxData[
 "satspln"], "InlineFormula",ExpressionUUID->
  "8d29bfde-5b86-48d6-8270-1144cf4b4ccf"],
 "."
}], "Notes",
 CellChangeTimes->{
  3.8242757078566504`*^9, {3.8242758963724265`*^9, 3.824275916780839*^9}, 
   3.824276258277438*^9, {3.824276585901143*^9, 3.824276586972278*^9}, {
   3.8314487421289062`*^9, 3.831448769072837*^9}},
 CellID->233416420,ExpressionUUID->"41ae093e-f99f-4ae6-8031-1fdd24625103"],

Cell[TextData[{
 "This point is known as the ",
 StyleBox["cricondentherm",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " and may be at a higher temperature than the critical temperature (but at a \
lower pressure)."
}], "Notes",
 CellChangeTimes->{{3.824275954102045*^9, 3.824276000148883*^9}, {
  3.8242765935317354`*^9, 3.8242766179404774`*^9}},
 CellID->591025743,ExpressionUUID->"a43d0061-f845-47b3-afb9-cc4a6ae98d23"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "349b3857-a9e4-4cd4-b118-25afc7dd3265"],
 " is a List (array) of composition mole fractions and must be the \
composition array used to determine the phase boundaries using  ",
 Cell[BoxData[
 "satspln"], "InlineFormula",ExpressionUUID->
  "94508531-0deb-45d3-b58e-81484f9864c8"],
 "."
}], "Notes",
 CellChangeTimes->{{3.8242761347578163`*^9, 3.824276247174163*^9}, 
   3.8242762784036064`*^9},
 CellID->81154261,ExpressionUUID->"401bef40-51e7-4230-9148-71aeae2d764f"],

Cell[TextData[{
 "This function returns the three state-point values at the maximum \
saturation temperature ( ",
 Cell[BoxData[
  SubscriptBox["T", "maxT"]],ExpressionUUID->
  "37d5358b-d744-4a9d-9aad-ce249dd99e08"],
 ", ",
 Cell[BoxData[
  SubscriptBox["P", "maxT"]],ExpressionUUID->
  "3b344cdb-1e7d-4765-825f-1914b64d8132"],
 ", ",
 Cell[BoxData[
  SubscriptBox["D", "maxT"]],ExpressionUUID->
  "593fe14b-603c-4325-bae7-ff8070f93b21"],
 " ).  Values are returned in a ruled list; as unit ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "0690364b-64f1-43f6-96c5-c197af3c4cf6"],
 " values unless the SuppressUnits option is set to true (see below)."
}], "Notes",
 CellChangeTimes->{{3.824276304671376*^9, 3.824276539716672*^9}, {
  3.8242766343495655`*^9, 3.824276635492523*^9}},
 CellID->16210891,ExpressionUUID->"c50de511-c582-48f5-b64c-088f528b9559"],

Cell["The following options can be given: ", "Notes",
 CellID->257976931,ExpressionUUID->"027886e9-9630-4292-82ec-e7db3a5a981b"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "0939fd95-2c46-4db2-8729-85f7b22e6c23"], 
    StyleBox["Option",
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"Default", " ", "Value"}],
     FontWeight->"Bold"], Cell[TextData[StyleBox["Description",
     FontWeight->"Bold"]], "TableText",ExpressionUUID->
     "e2b9d03b-278a-49f7-b3a0-5cb86932137d"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "d45f9c00-3b31-474a-8edb-0e05e03700df"], 
    ButtonBox["SuppressUnits",
     BaseStyle->"Link"], 
    ButtonBox["False",
     BaseStyle->"Link"], Cell[
    "If True, suppresses units on output values.", "TableText",ExpressionUUID->
     "9d9a054b-7405-4167-94f4-3357dc6413df"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.824275726492803*^9, 3.824275731380762*^9}, {
  3.824275838545097*^9, 3.824275883335326*^9}, {3.82427608123298*^9, 
  3.824276081328727*^9}},
 CellID->552757875,ExpressionUUID->"9947ad03-34a6-4f66-9ec5-bdf20dcea4cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"fce3da2c-a1dc-4dae-a67f-26f4f4f6221e"],

Cell[TextData[ButtonBox["RefpropLink Implementation",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Implementation"]], "Tutorials",
 CellChangeTimes->{{3.8314473432822914`*^9, 3.8314473890448866`*^9}},
 CellID->23511089,ExpressionUUID->"192491cf-df4e-4760-842b-26c2a1e26d12"],

Cell[TextData[ButtonBox["RefpropLink Units",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "Tutorials",
 CellChangeTimes->{{3.8314473432822914`*^9, 3.831447346570524*^9}, {
  3.8314474082405453`*^9, 3.8314474084190655`*^9}},
 CellID->189380923,ExpressionUUID->"a4644260-d716-41ef-a1a2-e39ccf6c5d20"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"7eea1392-ec5c-4296-9724-a3e7be81eb29"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"a685822f-2aca-45a7-99e5-a45d41558f0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"d4bb5e73-53c1-4c8a-b166-db09e5d52fdb"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"7241f671-5cb3-4106-b844-6bcaf060bdaf"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"c8b0aff1-d67c-486f-9e6a-8b7eee4c7518"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"c8df34f6-9a45-4f86-8529-9252f3fa4288"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"02081d44-1bcf-4efd-97d1-9d3b2c502fef"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["satspln",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satspln"]], "InlineFormula",
  ExpressionUUID->"4075f012-4104-4243-a937-423aef82cf7c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["critp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/critp"]], "InlineFormula",
  ExpressionUUID->"f342bf4b-0be8-46c0-b457-feb16042e6e5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["maxp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/maxp"]], "InlineFormula",
  ExpressionUUID->"8f1b302d-c9af-40ef-9c16-e4fb91305139"]
}], "SeeAlso",
 CellChangeTimes->{{3.829558623602611*^9, 3.829558632362193*^9}},
 CellID->929782353,ExpressionUUID->"c5dec7b3-ad0f-4097-8ef3-9eaf687b2eac"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"e302e4e2-5821-4ff6-8f61-ec58bb4a097f"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"cd61c68f-a021-4e53-aa58-c65d1e33d060"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"79ec593c-f5ee-4a50-b162-f45b1b493bf4"],

Cell["Load a mixture and composition.", "ExampleText",
 CellChangeTimes->{{3.831447799323694*^9, 3.831447812298988*^9}},
 CellID->492948770,ExpressionUUID->"2b80ee0a-a39d-4e74-ac5d-be771735282e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"hFluids", ",", "z"}], "}"}], "=", 
   RowBox[{
    RowBox[{"setmix", "[", "\"\<AMARILLO.MIX\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8314478519140267`*^9, 3.8314478698121843`*^9}, 
   3.8314479264297433`*^9},
 CellLabel->"In[9]:=",
 CellID->263768457,ExpressionUUID->"162865a1-c1f0-4f6b-826a-b36b678e2edc"],

Cell["Display returned values in a Table", "ExampleText",
 CellChangeTimes->{{3.831447963884534*^9, 3.831447971107212*^9}},
 CellID->290971360,ExpressionUUID->"8ba1018e-7dec-478e-b8ff-c648d41a830d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"hFluids", ",", "z"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.831447981642036*^9, 3.831447988874689*^9}},
 CellLabel->"In[10]:=",
 CellID->236291625,ExpressionUUID->"ad8b1b2c-4586-42fb-8882-5b80690d50ee"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"METHANE\"\>", "0.906724`"},
    {"\<\"NITROGEN\"\>", "0.031284`"},
    {"\<\"CO2\"\>", "0.004676`"},
    {"\<\"ETHANE\"\>", "0.045279`"},
    {"\<\"PROPANE\"\>", "0.00828`"},
    {"\<\"ISOBUTAN\"\>", "0.001037`"},
    {"\<\"BUTANE\"\>", "0.001563`"},
    {"\<\"IPENTANE\"\>", "0.000321`"},
    {"\<\"PENTANE\"\>", "0.000443`"},
    {"\<\"HEXANE\"\>", "0.000393`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8314479916133633`*^9},
 CellLabel->"Out[10]//TableForm=",
 CellID->99595348,ExpressionUUID->"5e4baf19-58aa-488d-aab9-60e375a2252a"]
}, Open  ]],

Cell["\<\
Call satspln to create algebraic splines through the saturation curves and \
evaluate the critical point and maximums.\
\>", "ExampleText",
 CellChangeTimes->{{3.831448004139886*^9, 3.8314480762350197`*^9}},
 CellID->154406767,ExpressionUUID->"fc26f919-d664-41c6-b213-26cd1ce2dc7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satspln", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.8314480872565393`*^9, 3.831448092634156*^9}},
 CellLabel->"In[11]:=",
 CellID->92311424,ExpressionUUID->"90c2300c-daea-4228-b6bc-4480d6f2f83c"],

Cell[BoxData[
 TemplateBox[{
  "satspln", "splines", 
   "\"INFO: Successfully created mixture phase boundary splines.\"", 2, 11, 2,
    33622560337115630957, "Local", "RefpropLink`satspln"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.831448101565306*^9},
 CellLabel->"During evaluation of In[11]:=",
 CellID->446650481,ExpressionUUID->"4ad12914-ad9e-42b3-b530-99d62814d698"]
}, Open  ]],

Cell["\<\
Evaluate the cricondentherm or maximum temperature point on the saturation \
curves for the mixture composition sent to satspln.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314481474355793`*^9, 3.831448186722519*^9}, {
  3.8314482428653226`*^9, 3.8314482508100724`*^9}, {3.831448325234005*^9, 
  3.831448325834399*^9}},
 CellID->118617733,ExpressionUUID->"3b95cd2d-74f9-4f58-a45a-652f2b07f092"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxt", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.8314481186226425`*^9, 3.8314481309626355`*^9}, {
  3.8314482564739237`*^9, 3.8314482565467267`*^9}},
 CellLabel->"In[13]:=",
 CellID->883086245,ExpressionUUID->"984ed02d-b469-4c0c-8c32-59f260af137f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"243.98682701417522`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "3858.4941829453683`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"2.2572640735687473`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.831448136961623*^9, 3.8314482583439198`*^9},
 CellLabel->"Out[13]=",
 CellID->3707564,ExpressionUUID->"5fba23de-1eb7-4a48-a531-663a4276aa79"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"061755b6-f5a8-44d2-ae92-a06300529daf"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "3b08b4d6-8cc3-4611-a705-3ec591288ada"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"d73de7c9-620c-4c1b-a3ef-dc1094af24b8"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "51a72c42-8896-4bd6-8135-33572dba6f85"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"1071e59a-c2e2-4ba1-af24-38794d9b91cb"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "0ccf7809-900f-46c6-869a-1719127dc3af"],
  $Line = 0; Null]], "ExampleSection",ExpressionUUID->"12b8ce9f-e68e-4cae-\
9af7-e6c8ff7056d3"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "RefpropLink`Private`SuppressUnits", "ExampleSubsection",ExpressionUUID->
   "cd1827bd-412f-4045-a520-d86606365349"],
  $Line = 0; Null]], "ExampleSubsection",ExpressionUUID->"7fbab94f-0c0c-488c-\
a3b7-715569ed2c22"],

Cell["\<\
Make the same call as in the example above, but with the SuppressUnits option \
set to True.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314484541471915`*^9, 3.831448485651929*^9}},
 CellID->20045686,ExpressionUUID->"75c6b923-beaa-4a26-a701-024dfdcae0b5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxt", "[", 
  RowBox[{"z", ",", 
   RowBox[{"SuppressUnits", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.831448508598546*^9, 3.831448544001851*^9}, {
  3.8314486886739144`*^9, 3.831448688793566*^9}},
 CellLabel->"In[17]:=",
 CellID->498345333,ExpressionUUID->"00148f27-19b4-4b56-8f84-0605ba65e2e2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(maxT\\)]\\) [K]\"\>", 
    "\[Rule]", "243.98682701417522`"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(maxT\\)]\\) [kPa]\"\>", 
    "\[Rule]", "3858.4941829453683`"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(maxT\\)]\\) [mol/L]\"\>", 
    "\[Rule]", "2.2572640735687473`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8314485455756407`*^9, 3.831448690715425*^9},
 CellLabel->"Out[17]=",
 CellID->420311444,ExpressionUUID->"e189320d-1fc9-4325-9efb-b2b3a04efa1b"]
}, Open  ]],

Cell["\<\
Note that the units of the returned values are still provided in the rule.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314485716349664`*^9, 3.8314486122503014`*^9}},
 CellID->111056592,ExpressionUUID->"04cfdbe3-36b2-4aab-8b72-ae656dda31d7"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "eb8e1156-a6f9-4e22-98ea-96978363b75c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"9df50d2b-bd8b-43bb-b3c6-ceac88e8940f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "6676d192-36b7-43cd-adc3-d7e9013900e0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"bd21651f-fee1-438a-b857-427ada6c3e33"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "b456ac82-40cc-4fcf-9126-d8ded34fb93f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"aa04b582-e2b4-4f78-955f-82468299fc5b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "d123a4bb-943b-40c9-b204-14ec932b736e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"fb6a7311-7217-431b-a8cf-e3ba4a47efe3"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "bf41f3a8-0817-48df-ba2a-d58dadc3ca56"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"0a446fb9-9472-4ad8-807b-3b6554741f5d"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-774, Automatic}, {Automatic, 17}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"5aa16d27-c62d-42ea-84b1-5b2c01e8fc0b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[18181, 505, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"061755b6-f5a8-44d2-ae92-a06300529daf",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 22642, 630}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 22, "History",ExpressionUUID->"4ee3c5a0-371c-4d94-9449-43c1f6c3e5fb",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"bc1c8622-ffb2-4af4-83d9-4d1e8dcbd541",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 31, "Categorization",ExpressionUUID->"cf300cd9-3b57-4c63-a1e3-d0f14a7dbbff",
 CellID->686433507],
Cell[1514, 46, 147, 2, 31, "Categorization",ExpressionUUID->"683eb6dd-4c56-41f1-8790-164f2c92f2bc",
 CellID->356920257],
Cell[1664, 50, 136, 2, 31, "Categorization",ExpressionUUID->"d273e017-0e3c-4676-bb03-88971433e740",
 CellID->105363961],
Cell[1803, 54, 140, 2, 31, "Categorization",ExpressionUUID->"d1860dea-23c0-42c7-922f-c9f579210520",
 CellID->130548113]
}, Closed]],
Cell[CellGroupData[{
Cell[1980, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"2f4ec892-16ae-4352-a214-0af481c84b54",
 CellID->477174294],
Cell[2093, 64, 233, 3, 17, "Keywords",ExpressionUUID->"0af51754-45ea-4c52-aabe-e574aa516c52",
 CellID->1164421360],
Cell[2329, 69, 169, 2, 17, "Keywords",ExpressionUUID->"810a104f-d0fd-4a75-9b0a-2be3b697fd18",
 CellID->172874080],
Cell[2501, 73, 235, 3, 17, "Keywords",ExpressionUUID->"58bf863b-25c4-4b16-96e7-cb9fb3f41846",
 CellID->167060517],
Cell[2739, 78, 175, 2, 17, "Keywords",ExpressionUUID->"5dfb837b-61fa-44a8-8911-81efe427677a",
 CellID->982835445],
Cell[2917, 82, 179, 2, 17, "Keywords",ExpressionUUID->"5d3b679d-b569-4b71-b004-6602d953b48f",
 CellID->406425908]
}, Closed]],
Cell[CellGroupData[{
Cell[3133, 89, 120, 1, 17, "TemplatesSection",ExpressionUUID->"26e589ce-2d02-40ab-a897-cb05807de71d",
 CellID->1872225408],
Cell[3256, 92, 149, 2, 70, "Template",ExpressionUUID->"ba59a160-0415-476c-af0f-90adeea15d5b",
 CellID->1562036412],
Cell[3408, 96, 137, 2, 70, "Template",ExpressionUUID->"a1bfb897-6f30-42d4-93a7-fdf92fd02be4",
 CellID->158391909],
Cell[3548, 100, 136, 2, 70, "Template",ExpressionUUID->"990c90fd-5ea7-406e-bcae-5d392c543b5c",
 CellID->1360575930],
Cell[3687, 104, 137, 2, 70, "Template",ExpressionUUID->"7d686e3a-a338-4ee8-8e65-1c81050e7bd5",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3861, 111, 108, 1, 17, "DetailsSection",ExpressionUUID->"1222b892-a8f6-4aad-a6bb-4dbc72925435",
 CellID->307771771],
Cell[3972, 114, 202, 3, 31, "Details",ExpressionUUID->"cafebe4f-4a0a-4158-bf6d-71e4ff9f2ba4",
 CellID->670882175],
Cell[4177, 119, 202, 3, 31, "Details",ExpressionUUID->"32bb6fac-f3fc-4c58-8943-55414e7d18ed",
 CellID->350963985],
Cell[4382, 124, 197, 3, 31, "Details",ExpressionUUID->"209ab839-043c-4d31-8e63-7b14d0fa8a69",
 CellID->8391405],
Cell[4582, 129, 124, 2, 31, "Details",ExpressionUUID->"0792c26c-ec6a-4fa5-9690-2e98320079bb",
 CellID->3610269],
Cell[4709, 133, 116, 2, 31, "Details",ExpressionUUID->"ed026a7a-dcd8-4fb5-a2b5-8a14a55e3e88",
 CellID->401364205],
Cell[4828, 137, 116, 2, 31, "Details",ExpressionUUID->"525c6fb8-f920-47ba-8c9c-d825507abbc4",
 CellID->350204745],
Cell[4947, 141, 118, 2, 31, "Details",ExpressionUUID->"7caf59c0-fe54-43d8-9b9a-da5e7d4bec11",
 CellID->732958810],
Cell[5068, 145, 133, 2, 31, "Details",ExpressionUUID->"8dd408b7-3a1f-4a10-b857-c4a15db9b683",
 CellID->222905350],
Cell[5204, 149, 122, 2, 31, "Details",ExpressionUUID->"50220afa-5526-4c96-88b4-e62879b5f758",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[5363, 156, 102, 1, 62, "ObjectName",ExpressionUUID->"b33adbb1-97d3-4061-8e93-1875a06c3541",
 CellID->1224892054],
Cell[5468, 159, 540, 12, 86, "Usage",ExpressionUUID->"cddd1122-3696-4719-a729-1c1e461d68b7"],
Cell[6011, 173, 737, 17, 39, "Notes",ExpressionUUID->"41ae093e-f99f-4ae6-8031-1fdd24625103",
 CellID->233416420],
Cell[6751, 192, 426, 10, 37, "Notes",ExpressionUUID->"a43d0061-f845-47b3-afb9-cc4a6ae98d23",
 CellID->591025743],
Cell[7180, 204, 558, 13, 40, "Notes",ExpressionUUID->"401bef40-51e7-4230-9148-71aeae2d764f",
 CellID->81154261],
Cell[7741, 219, 908, 23, 53, "Notes",ExpressionUUID->"c50de511-c582-48f5-b64c-088f528b9559",
 CellID->16210891],
Cell[8652, 244, 128, 1, 23, "Notes",ExpressionUUID->"027886e9-9630-4292-82ec-e7db3a5a981b",
 CellID->257976931],
Cell[8783, 247, 977, 22, 38, "3ColumnTableMod",ExpressionUUID->"9947ad03-34a6-4f66-9ec5-bdf20dcea4cb",
 CellID->552757875]
}, Open  ]],
Cell[CellGroupData[{
Cell[9797, 274, 112, 1, 44, "TutorialsSection",ExpressionUUID->"fce3da2c-a1dc-4dae-a67f-26f4f4f6221e",
 CellID->250839057],
Cell[9912, 277, 291, 4, 16, "Tutorials",ExpressionUUID->"192491cf-df4e-4760-842b-26c2a1e26d12",
 CellID->23511089],
Cell[10206, 283, 325, 5, 16, "Tutorials",ExpressionUUID->"a4644260-d716-41ef-a1a2-e39ccf6c5d20",
 CellID->189380923],
Cell[10534, 290, 342, 5, 16, "Tutorials",ExpressionUUID->"7eea1392-ec5c-4296-9724-a3e7be81eb29",
 CellID->341631938],
Cell[10879, 297, 339, 5, 16, "Tutorials",ExpressionUUID->"a685822f-2aca-45a7-99e5-a45d41558f0e",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[11255, 307, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"d4bb5e73-53c1-4c8a-b166-db09e5d52fdb",
 CellID->1268215905],
Cell[11396, 310, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"7241f671-5cb3-4106-b844-6bcaf060bdaf",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[11546, 316, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"c8b0aff1-d67c-486f-9e6a-8b7eee4c7518",
 CellID->1584193535],
Cell[11669, 319, 104, 1, 16, "RelatedLinks",ExpressionUUID->"c8df34f6-9a45-4f86-8529-9252f3fa4288",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[11810, 325, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"02081d44-1bcf-4efd-97d1-9d3b2c502fef",
 CellID->1255426704],
Cell[11923, 328, 781, 20, 18, "SeeAlso",ExpressionUUID->"c5dec7b3-ad0f-4097-8ef3-9eaf687b2eac",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12741, 353, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"e302e4e2-5821-4ff6-8f61-ec58bb4a097f",
 CellID->38303248],
Cell[12856, 356, 101, 1, 16, "MoreAbout",ExpressionUUID->"cd61c68f-a021-4e53-aa58-c65d1e33d060",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12994, 362, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"79ec593c-f5ee-4a50-b162-f45b1b493bf4",
 CellID->880084151],
Cell[13408, 375, 195, 2, 20, "ExampleText",ExpressionUUID->"2b80ee0a-a39d-4e74-ac5d-be771735282e",
 CellID->492948770],
Cell[13606, 379, 454, 12, 25, "Input",ExpressionUUID->"162865a1-c1f0-4f6b-826a-b36b678e2edc",
 CellID->263768457],
Cell[14063, 393, 198, 2, 20, "ExampleText",ExpressionUUID->"8ba1018e-7dec-478e-b8ff-c648d41a830d",
 CellID->290971360],
Cell[CellGroupData[{
Cell[14286, 399, 318, 7, 25, "Input",ExpressionUUID->"ad8b1b2c-4586-42fb-8882-5b80690d50ee",
 CellID->236291625],
Cell[14607, 408, 929, 25, 157, "Output",ExpressionUUID->"5e4baf19-58aa-488d-aab9-60e375a2252a",
 CellID->99595348]
}, Open  ]],
Cell[15551, 436, 292, 5, 33, "ExampleText",ExpressionUUID->"fc26f919-d664-41c6-b213-26cd1ce2dc7a",
 CellID->154406767],
Cell[CellGroupData[{
Cell[15868, 445, 226, 4, 25, "Input",ExpressionUUID->"90c2300c-daea-4228-b6bc-4480d6f2f83c",
 CellID->92311424],
Cell[16097, 451, 395, 8, 19, "Message",ExpressionUUID->"4ad12914-ad9e-42b3-b530-99d62814d698",
 CellID->446650481]
}, Open  ]],
Cell[16507, 462, 404, 7, 33, "ExampleText",ExpressionUUID->"3b95cd2d-74f9-4f58-a45a-652f2b07f092",
 CellID->118617733],
Cell[CellGroupData[{
Cell[16936, 473, 279, 5, 25, "Input",ExpressionUUID->"984ed02d-b469-4c0c-8c32-59f260af137f",
 CellID->883086245],
Cell[17218, 480, 914, 19, 36, "Output",ExpressionUUID->"5fba23de-1eb7-4a48-a531-663a4276aa79",
 CellID->3707564]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18181, 505, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"061755b6-f5a8-44d2-ae92-a06300529daf",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[18339, 509, 242, 5, 31, "ExampleSection",ExpressionUUID->"d73de7c9-620c-4c1b-a3ef-dc1094af24b8",
 CellID->1293636265],
Cell[18584, 516, 265, 5, 19, "ExampleSection",ExpressionUUID->"1071e59a-c2e2-4ba1-af24-38794d9b91cb",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[18874, 525, 225, 5, 19, "ExampleSection",ExpressionUUID->"12b8ce9f-e68e-4cae-9af7-e6c8ff7056d3"],
Cell[CellGroupData[{
Cell[19124, 534, 257, 5, 22, "ExampleSubsection",ExpressionUUID->"7fbab94f-0c0c-488c-a3b7-715569ed2c22"],
Cell[19384, 541, 265, 5, 20, "ExampleText",ExpressionUUID->"75c6b923-beaa-4a26-a701-024dfdcae0b5",
 CellID->20045686],
Cell[CellGroupData[{
Cell[19674, 550, 341, 7, 25, "Input",ExpressionUUID->"00148f27-19b4-4b56-8f84-0605ba65e2e2",
 CellID->498345333],
Cell[20018, 559, 581, 11, 24, "Output",ExpressionUUID->"e189320d-1fc9-4325-9efb-b2b3a04efa1b",
 CellID->420311444]
}, Open  ]],
Cell[20614, 573, 250, 4, 20, "ExampleText",ExpressionUUID->"04cfdbe3-36b2-4aab-8b72-ae656dda31d7",
 CellID->111056592]
}, Open  ]]
}, Open  ]],
Cell[20891, 581, 248, 5, 31, "ExampleSection",ExpressionUUID->"9df50d2b-bd8b-43bb-b3c6-ceac88e8940f",
 CellID->258228157],
Cell[21142, 588, 259, 5, 19, "ExampleSection",ExpressionUUID->"bd21651f-fee1-438a-b857-427ada6c3e33",
 CellID->2123667759],
Cell[21404, 595, 252, 5, 19, "ExampleSection",ExpressionUUID->"aa04b582-e2b4-4f78-955f-82468299fc5b",
 CellID->1305812373],
Cell[21659, 602, 257, 5, 19, "ExampleSection",ExpressionUUID->"fb6a7311-7217-431b-a8cf-e3ba4a47efe3",
 CellID->1653164318],
Cell[21919, 609, 249, 5, 19, "ExampleSection",ExpressionUUID->"0a446fb9-9472-4ad8-807b-3b6554741f5d",
 CellID->589267740]
}, Open  ]]
}
]
*)

